From: Karl Fogel Date: Fri, 4 Jun 2004 04:37:10 +0000 (+0000) Subject: 2004-06-03 Karl Fogel X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~22176 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=2724c03445604b498080fef75cd80ebf3f890d7d;p=emacs.git 2004-06-03 Karl Fogel * vc-svn.el (vc-svn-checkin): Use 'nconc' instead of 'list*', because the latter is a CL-ism. This fixes the bug reported by Shawn Boyette in http://lists.gnu.org/archive/html/emacs-devel/2004-05/msg00442.html. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 70c3d9d8942..8d4381a6961 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2004-06-03 Karl Fogel + + * vc-svn.el (vc-svn-checkin): Use 'nconc' instead of 'list*', + because the latter is a CL-ism. This fixes the bug reported by + Shawn Boyette in + http://lists.gnu.org/archive/html/emacs-devel/2004-05/msg00442.html. + 2004-06-04 Miles Bader * faces.el (face-differs-from-default-p): Use a different diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el index 4db9788cc3b..82c09cbd435 100644 --- a/lisp/vc-svn.el +++ b/lisp/vc-svn.el @@ -195,8 +195,9 @@ This is only possible if SVN is responsible for FILE's directory.") (defun vc-svn-checkin (file rev comment) "SVN-specific version of `vc-backend-checkin'." - (let ((status (apply 'vc-svn-command nil 1 file - "ci" (list* "-m" comment (vc-switches 'SVN 'checkin))))) + (let ((status (apply + 'vc-svn-command nil 1 file "ci" + (nconc (list "-m" comment) (vc-switches 'SVN 'checkin))))) (set-buffer "*vc*") (goto-char (point-min)) (unless (equal status 0)